home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs59.d81
/
krnlprnt.sda
/
SAMSEQ
(
.txt
)
< prev
next >
Wrap
GEOS ConVerT
|
2009-10-10
|
1KB
|
61 lines
SamSeq
PRG formatted GEOS file V1.0
EPSON FX-80
SAMSEQ
BLASTER'S CONVERTER V2.5
universal.dbm
universal.dbg
Write Image V2.0
geoWrite V1.1
GEOPROGRAMMER sample file.
.if Pass1
.include geosSym
.include geosMac
.endif
.psect
ProgStart: nop
GetPrinter: LoadW r0L,#1
LoadW r7,#$7900
LoadW r6,PrntFileName
jsr GetFile
DoScreen:
LoadB row,#0
5$ lda row
sta a0
lda #40
sta a1
ldx #a0
ldy #a1
jsr BBMult
AddVW #COLOR_MATRIX,a0
ldy #0
10$ lda (a0),y
beq 20$
cmp #27
bcs 110$
adc #64+32
bra 19$
110$ cmp #32
bcc 120$
cmp #64
bcs 15$
bcc 19$
15$ nop
19$ sta MyBuffer,y
120$ iny
cpy #40
bne 10$
20$ lda #CR
sta MyBuffer,y
lda #0
sta MyBuffer,y
LoadW r0,MyBuffer
LoadW r1,$5000
jsr PrintASCII
inc row
lda row
cmp #25
bne 5$
row: .byte 0
MyBuffer: .block 50